home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Critical Thinking Skills / Workplace Effectiveness: Critical Thinking Skills.iso / pc / Files / Patterns.dxr / 00006_PRINT & Write text file.ls < prev    next >
Encoding:
Text File  |  1998-09-16  |  930 b   |  22 lines
  1. global gMasterData
  2.  
  3. on printButton
  4.   if iAmActivated(gMasterData) then
  5.     getPrintData()
  6.     set vThisField to string(getUserArea(gMasterData)) && "field"
  7.     print(the text of member vThisField)
  8.   else
  9.     alert("Printing is unavailable until an activity is completed.")
  10.   end if
  11. end
  12.  
  13. on getPrintData
  14.   set vThisField to string(getUserArea(gMasterData)) && "field"
  15.   set the text of member vThisField to EMPTY
  16.   set vTempText to EMPTY
  17.   put "Your input from Extend The Pattern, Math Ability:" & RETURN & "--------------------------------------------------" & RETURN after vTempText
  18.   put "This natural ability is demonstrated by skill in using numbers and reason. Being able to find patterns and realationships between concrete and abstract ideas is a valuable critical thinking tool." & RETURN & RETURN after vTempText
  19.   put the text of member "extendPrint" after vTempText
  20.   set the text of member vThisField to vTempText
  21. end
  22.